20 EB=PEEK(45)+256*PEEK(46):IFPEEK(EB-11)<>24THENSTOP
30 SYSEB-11:POKE53281,0:POKE53280,6:PRINTCHR$(5)CHR$(147):DIMP(9,1)
99 PRINT"'SYNTH SAMPLE'"
100 PRINT"SELECTION:"
101 PRINT"[163][163][163][163][163][163][163][163][163][163]"
102 RESTORE:READN:FORK=1TON:READU$,P(K,0),P(K,1)
110 PRINTMID$(STR$(K),2)") "U$:NEXT
180 PRINT"A) STOP A TUNE"
190 PRINT"B) QUIT"
195 PRINT"C) QUIT BUT KEEP TUNE PLAYING"
200 PRINT"CHOICE?  [157]";
210 GETU$:IFPEEK(731)=0THENPRINT:PRINT:PRINT"(READY)[145][145]"TAB(8);
218 IFU$=""THEN210
220 IFU$="C"THEN9000
221 IFU$="B"THENGOSUB9500:POKE731,0:SYS730:GOTO9000
222 IFU$="A"THENGOSUB9500:GOTO99
225 A=VAL(U$):IFA=0ORA>NTHEN210
230 PRINTU$:PRINT:PRINT"("A"[157] )   "       "
250 [141]9500:[151]731,A[170]P(A,0)[172]16[170]P(A,1)[172]64:[158]730:[137]99
9000 [153]:[153]:[153]:[128]:[153]"LOAD":[137]99
9500 [151]731,10:[158]730:[142]
59997 [143] ** DATA CONSISTS OF NUMBER
59998 [143] ** OF SONGS, NAMES & POLY
59999 [143] ** SETTINGS.
60000 [131] 9
60010 [131]"THEME FROM 'STATIONARY ARK' -ADAPTED",1,2
60020 [131]"'SATURDAYS IN SILEZIA'",0,0
60030 [131]"'SPIRAL' EXCERPT (VANGELIS)",0,0
60040 [131]"'TUBULAR BELLS' (OLDFIELD)",0,0
60050 [131]"CLOSING THEME FROM 'MAGIC SHADOWS'",0,0
60060 [131]"THEME FROM CLOCKWORK ORANGE (CARLOS)",0,0
60070 [131]"'OXYGENE2' (JARRE)",0,0
60080 [131]"'CANON' (PACHELBEL)",0,0
60090 [131]"'ENOLA GAY' (O.M.I.T.D.)",0,0